h 



+ m 



» * 



.a *_ 



.*»• •»._ 



LABEL OOOOOOOOOPRIM£K0017^100CC tx Utf JtCT/REM); F ILE SUURCEF IlE»SYMBUl/UPL ATE«-«-OCOOOOO 



OBJECT /READ 



smss-M sME 



12 

13 

14 

IS 

IS 

17 

IB 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 

37 " 

38 



41 
42 
«3 
44 
45 
46 
47 
48 
49 
SO 
51 
52 
53 
54 
55 
56 



li- 



,'!' 






56 
3 



19 
20 



22 



24 
25 
26 

28 
29 



JO 

31 " 

12 

33 

34 

35 



36 
37 ~ 



39 



43 



47 
48 



49 
. 50 



© 



53 

54 



55 
I 56 



comment; * title* B55oo/B57go mark xiv system helease 

* FILE ID: SYMBOL/UPOATL TAPE 10* SYMbGL2/F ILEOOO 
* TH I S M A TFRI AI IS PNOPR l FT fl hY T il miHK nuq h S rn RP(]H A TI(lM 

* AND IS NOT TO BE REPRODUCED* USED* OR DISCLOSED 

* EXCEPT IK ACCORDANCE WITH PROGRAM LICENSE OR UPON 
* WRTTTFfr tinHnRT7ATintu [If ThF PATfi u T niuT.S|n N n p 



00000010 
00000011 

000(10012 



BURROUGHS CORPORATION* DETROIT, mKHIGaW 46232 



00000013 
00000014 



* mPYRTHhT LL) 1971 / > LL L 2 RufiR nu r.HS rMRPrm *T T nt v 



BEGIN 



If RECSZE 
BEGIN 



* AA3202C6 AA386657 
t.NTFRFR R FP.S7F J. % lUUMREB OF hiORflS PfE. BFfnpp 



00000016 
00000017 
QOOOQOlft 



*i 



*6 AND RECSZE. /10 AND fiiECJZE *15 (HEN RECSZE:=3Q; 
FI I, £ CUBES (2*10* 30 X * 



-RIAL- 



INITIAL DISK SERIALC2QJ2 ] "REMOTE" "USERS" 
(2#RECSZE *30*SAVe 999); 



ARRAY TYPE»MASK,MASKUUUO;iCJ 
CODE#TFMP[o:29i; 
SAVE 



ARRAY READINCO: 10] ; 
INTEGER ADDR,I» 
RFCHUNT? 



REAL C*C1. 



BO O LEAN CRE A TOR 



ADDTCG* 

RJEADDTQG* 
DELETOG, 



RJECELTGG* 
MASKTOG* 

E NOTC G ' 



DEFINE B*BOCLEAN*; 
BOOLEAN PROCEDURE OIRECTORYSEARCH ; 

■■ -"■ '■' "' BEGIN ARRAY SCH [At AH 



LABEL EXIT; 

SEARCHCINlTlAL*i)ChC*J ), 

IF BPHr01<0 1HYU fiO Tfl fXTTi 



FXTTt 



RECSZEJ* SCHC33; 
OIRECTORYSEARCHJ»T«UE; 
FNn flTRFCTnWVSFABCul 



stream procedure bi nary c souhce/oest ,w rtus ), 
value words; 

HFtilN Si HSnURrki pyi«pKST ; 



sn=si + i; dsjsreset; 

47(IF Sc«"l" THEN DS!»SeT EL&E OSl«RESET JSi l-SI+1 > | 
W0RDS( SIl»SI+1 l DSiaRESETi 



END OF 



24(1F Sc="l" THEN 
DSJs 23 RESET); 
RInahy: 



DS: = SeT Ei-*E DS: = R£SE'f ;SI :sSI + l ); 



INTEGER STREAM PROCECuRE NAmEC A.ADDR )t 

VALUE A0DRI 
R FGI N I ARFL I tXJ^UUU 



LABEL LB; 

DII»A; DS»=d LIT "0 

IF SCs" !! THFKi P.FRIN 



£L 



IF SC» ALPHA THEN 

BEGIN 7(DSS«CHR; IF SC'ALPHA 

jump OUT TU exit; 



'•; ui:soi-7; 

a siH; fio u: l 



si:=addr; 
end; 



then go to la; 



00000019 

00001000 

00001100 



ooouino 

00001120 
00001200 



00001300 

oooouoo 

jQiiaiLLaD-0- 



00001600 
00001700 
QOOUlftQO 



00001900 
00002000 
00002100 



00002200 
00002300 
.0002 4 



00002500 
00002550 
O Q 002 6 



00002650 
00002700 
00,002600 



00002900 

00003000 

nnooainn 



00003200 
00003300 
QQOO3400 



00003500 
00003600 
onoo37nn 



00OU4900 
00005000 
0QOQ510Q 



00005200 
00005300 
00005400 



00005500 
00005600 
00005700 



00005800 
00005900 
QQQQ6nnn 



00006100 
00006200 
00006300 



00006400 
00006500 

00006600 



^r 



1 
> 2 

3 

4 

6 
7 

I 8 
9 

10 

12 
13 

> M 
IS 

16 

I ' 7 
IB 

19 

20 

21 

22 

23 

24 



25 

>h 

27 

28 

I » 
30 

31 " 

I * 
33 

34 

, 35 

36 

37 T 
38 
39 
40 



42 
43" 
; 44 
45 
46 
47 
18 



49 
50 



52 

i 53 

54 



LAJ 
LB» 



); 

IF SC' 
G O T Q 



end; 

IF SC: 
RFGTN 



: ALPHA 

exi t; 



ThlLN U£fitN 



sil + l/GO TC LB END. 



"*" THEN 
nSl^CHRj 



END 



EXIT: 
OF NAME? 



dsi=chr; 

NAME** Si; 



SIi»sl-i; r.n Tn r^rr i-mq 



INTEGER STREAM PROCEDURE MKABSCADOR)* 

BEGIN SltsA0DRjMKABSSsSj;9CSItsSI+9>J8<lF SCs M 

RFfiTN M^RSlaSp m H P p L iT Pmmi 



THEN SlJaSI+1 ELSE 



END OF MKABS; 

STREAM PROCEDURE MOVE < W» S, } ; VALUE rt; 

BE^IN SH=s; niiani wrnstcw osi i- nd uF movf; 



PROCEDURE ENTERUSERID; 
BEGIN INTEGER I; 

AnORIa NAMFTr.AnnH^i 



IF C/"«- 
CDDEC03 
FOR Il«. 



" THEN ADDR»*hAME(OADD&>; 

*= ci; 

1 STEP 1 UNTI I 5 D O r unECn t grtA S KUJi 



smb. 



COOEC63JS IF «ECS^E>6 AMD C/ M * " THEN -C ELSE O; 
RECOUNT is IF CCDt[63 < THEN 7 ELSE 6} 

of ente b user i d; ____^ 



procedure enteruserpcrtion; 
begin integer t^woros; 

STRFAM PROCEDURE H ESF T ( h jjHEC . IN 



-IX 



WORDSis IF (T»=RECSZE"RECOUNTJ5o 
IF T>9 THEN 9 ELSE U 
RFCrillNT8 <S TNFM RrStTfBranUii 
IF RECOUNTS 29 THEN 

MOVE C WORDS # RE AD IN* CODEC RECOUNT]); 
REmijNT i s REmi'NT 4 words; 



r i TI»S> D Sta g R P,s FT FN D O F R E f i E -Iju. 



THEN ELSE 



end of entebuserpoktion; 
if recszeso 

Tr NinT nTRrrmpysp^ru 



THEN 
THFN 



RECSZE 



6; 



BEGIN 

CODEC 03! = 76; URITECINITIAL'REISZE'CUDLC*})/ 

U OCKC I NITIA L ^S A VD J 



end; 



BEGIN FILE 
JUS£R_0-LSit-!iB 




BLOCK 
"USERS" 



label eof; 
procedure deleter<a,b,o;value 

PR O CED U RE F l MTER U. S E RECQRP f 



f ?>RFr.S^E OXUJ 



A*B»Ci REAL A>B*Ci FQRwARU, 



BEGIN LABEL AROUND, ENDFI LE'RI TE,EX If * 

BOOLEAN TOG; 
RFAI BFr.Ti 



STREAM PROCEDURE BLANK(S#W); VALUE w; 
BEGIN Dll'Si WCDSl=a LIT "0") END OF BLANK; 
FUR TS«1 STFP 1 IINT1I *, 1)0 



C0DECT3»s 
RECt* *i; 
IF , (CT»»CflOECQ1 ,■!? 



REALCBCC8DECT3) AND 8CMASK0UTC T 3 ) ) J 
0RCW6)) THEN GO TH EXIT1 



00006700 
00006800 
00006900 



00007000 
00007100 
Qnoo7?nn 



00007300 
00007400 
00007500 



i 
i 



00007600 
00007700 
00007600 



00007900 
00008000 
QQ0Q81QQ 



00008200 
00008300 
0000840 



00008500 
00008600 
00006700- 



00008800 

00008900 

■ 00009000- 



00009100 

00009200 
-00009300 



00009400 
00009500 
00009600 



00009700 
00009800 
00009900 



00010000 
00010100 
ooqio?oo 



00010202 

00010204 
00010206 



00010208 
00010300 

00010400 



00010500 
00010600 
00010700 



00010800 

00010900 

JOOQllOOQ 



00011100 

000U200 
00011300 



00011400 
00011500 
0Q 011 60 JL 



00011700 
OOOU800 
00011900 



WHILE TRUE DO 

BEGIN RF,AD(USFHrRFCtsRrr..M J »HFCS2F.TFM>>C*J^ 



00012000 
00012100 
00012200 



5,6 
3 



h 



13 
14 



15 
16 
17 
18 
19 
20 



22 
23 
24 
25 



27 
28 



29 
30 



31 

i a 

33' 
34 
, K 
36 
37 " 



38 



45 
46 



49 
I 50 



JO 

JO 
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IF CT: = TLMP[Q] )==/6 THtN GO T U 
IF T=12 THEN BEGIN TuU:sTKUE 
if Tarrnfcirn] th^m 



ENUHuEJ 
; GO TO RITE 



END, 



AROUND! 



IF ((T»«CODE[63)iO) ANO (TEMPX63J0) THEN 
BEGIN tog:bfalse;go TU HUE END ELSE 

TF TaTFMPTft] THFM CO Tn ARnuiunt 



eno; 

EMJFILEI. WR ITE( USER CREC J #RECSZE# CODEC*]); 
CODFrnilaZft: Rii£_L=JiLCJLl \ 



RITE I WR I TE< USER [REC3#RECSZE# CODEC*]); 

IF TOG THEN DELETER ( CODE t '01* CODEC 6 ) »HtQ)i 
FX t Tt m"ANKfcnnE[ft]i^ft}» __^________ 



END of enteruserecqrd; 

PROCEDURE DELETER(A,B, UPVALUE A>B>C; 
R FtilM RE AL U L ABE L Ei < n » Rlr £i 



REAL A*B#C/ 



WHILE TRUE DO 

BEGIN REAO(USER[CI»C + n#RECSZE#TEMP[*]>; 
TF CT l »TE^PC 01 )»76 THF.N GO Tn EXIT 8 



RITEi 



IF T=A THFN 
IF B=0 THEN 
BEGIN ftl«!2L 



WRIT E (U .SE R L C3.*f A ) EN O F L ' i E 



end; 



IF B=TEMP[6J THEN GO TO KITE* 



EXIT! 



END OF DELTER; 
PRUCEDURE SETQGGLE; 
BE GIN DEFINE IS 9 : s 



C * *i 



addtog is "add " ; 
rjeadotog is "rjeaud "; 
oeletog is "delete "} 



-&NU- 



rjedeltog is "rjedel 

endtqg is "end ". 

of set o ggle; 



STREAM PROCEDURE CONV(A#B); VALUE -A* 
BEGIN SH«LOC A; Slt*SI+2; TALLYJ*!' 
IF SC * » " THEN TAI LY8s?,i 



Si:aSi-i; Di:=b; B'.'TALLY; DS:sd oct; 
END CONV; 
PRUrrniiRF r.iftnpiit n 1 



BEGIN REAL REC'I'STa; BUOlEAN ■ MQVETOGj 

label loop,fnd,riteit#useit; 
AnDRf NAHFtrtAnnRw 



adorjsname(C'ADdr); 

C0NV(C1»STA); 

convcccu; 



ST A \ »0 &ST A C 9 U4 U ] &C 1 \ 1 Ml 4 1 4 3 ; 
LOOP l 

RFADCUSERfWFC»«RfCH3.RECSZF>TEMPE»3)i 



IF RJEADDTOG then 
BEGIN IF TEMP[03*76 THEN WR iTE (USER [REC + 1 ] , hiEC 5ZE, TEMP [* 3 ) ELSE 
IF (MOVETOG*«T£MPCO]M<iO) THEN MOV £"( RECSZt/TEMP [0 3* CQDECO n 



00012300 
00012400 
00012500 



00012600 
00012700 

onoiPaoo 



00012900 
0OO13000 
0QD131Q0 



00013200 
00013300 

onouann 



00013500 
00013600 
Q001J700 



00013600 
00013900 
OOQUOOQ 



00014100 
00014200 
00014300 



00014400 
00014500 
000 14 600 



00014700 
00014600 
00014900 



00O15000 
00015050 
00015100 



00015150 
00015200 
00015300 



00015302 
00015304 
nnms-4n* 



00015308 
00O15J1C 
0001511? 



00015314 
00015316 
00015318 



00015320 
00015322 
0001532 4 



00015326 
00015328 
00015330 



ELSE 

BEGIN FOR I»*l STEP 
IF TEMPmsSTA 



00015332 
00015334 
00015336 



1 UNTIL 
THEN 6U 



RECSZE-1 
TO Fno; 



DO 



FOR .11*1 STEP 1 UNTIL 
IF TEMPCI3 LEQ 1 THEN 
GG TO LPOP; 



RECSZE-1 DC 
GQ TO uSElTi 



00015336 
00015340 
00015342 



usEiTt TEMPtn j»sta; 
eno; 

F0« H*2 



go T8 riteit; 
step 1 until REcs^E-i 00 tempcu*«q; 



00015344 
00015346 
00015346 



00015350 

00015352 
0Q015354 



h 



13 



16 
17 
18 



20 



25 



27 



30 
3l" 
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34 
35 



36 

37 " 



39 



42 

43* 

44 

45 

46 

47 

48 



49 

50 
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FUTEIT* 



tempci3i«sta; 1 1 m p l 3 * = uo; 

WRITECUSFRCREC J*RECS/l, : ;>TEMPt<r J W 



IF MOVETQG ThEN ENTERUSEKECCJRDJ 
END ELSE 
IF tEMP t O] » i a o THEN 



BEGIN FOR i:=n STEP 1 UNTIL KeCSZE"1 DO 

IF TEMPtllsO ThEN GO TO FNu ELSE 
— TF TEMPT IlaSTA THEN 



8EGIN 
GO TO 



TEMPCI]l«W 

loop; 



GO TO R 1 T E IT ; END; 



en d ; 



FNUI 

end rjetubuid; 



F T LI TYPFl+1 hTTH Ot 



"CCMASK 
"CCMASK 

,f KEYINQ 



"KEYIN1 

"KEYIN2 



FILL MASKt*] WITH 0* 

3 M 0000000001600440«, % CCMASKI 
3 , Ml»0 613 0flAl23776"> % CCH AS K2 



3 M C0420G0010200000"> * KLYINO 
3 ,, 37/'00136C0200Q0U", * KEYIM 
3*03 0760400000000"; 3! KEYING 



FILL MAS'K0UTC*3 WITH Of 

3»3777777777777777»> 
3*3777777777777777". 



3"37777777777777(r», 
3 n 37777777777777/7», 
*«3777777777777777»i 



%%%%%%%%%&! ART OF OUTER BLOCK ST ATEMbNTSXI%xX%*s» 

READINCi03:s MASKOUTCSlJ 
HHlLF TRUE nO 



BEGIN REAUCCOOES*lO»RtADlNC*j)CE0F Ji 
ACDH I s MKA8S(«LA0I\); 

Anon ; = name (C »au dr ?J 



AODR :* NAME(Cl'ADDR); 

IF CC»"AOD " OR C**DELETE " OR C»"END 
C« w RJrADD "OR C*"Rjrnf.L "3 THEN 



0GG15356 
00015358 
00015360 



00015362 
00015364 
00015366 



00015368 

000x5370 
00015372 



00015374 
00015376 
00015378 



00015380 
00015382 
00015400 



00015500 
00015600 
00 1 5700 



00015800 
00015810 
000 X5 82 0- 



00015900 

00016000 

■ 0001610 



00016200 
00016300 
0001 6 310 



00016400 
00016500 

00016600 



00016700 
00016800 
QDvJ 16Q0Q 



00017000 
00017100 
Q 00 17 2QQ 



00017300 
00017400 
Q Q0 1 7 5QQ 



OR 



00017600 
00017700 
00017750 



BEGIN IF AQDTQG THEN ENTERUSERECURO; 00017800 

SETOGGLE; 00017900 

IF RJEADPTUG 03 R.JFnFlTLG THEN RjETURUin; Q00179S0 



IF OELETOG OR ADDTOG THEN ENTERUSERID; 
IF DELETOG THEN DELETER^ CODE CO]* CODEC 6 ] r 

if ENptns Then gxi to fqf; 



d; 



END ELSE 

BEGIN FOR 11*1 STEP 1 UNTIL 5 DO 
TF CMA3KTQG ;= C=TYPfc'M3) THFN 



00018000 

00018100 

-OQ01H200 



BEGIN 

BINARY CREAOIN/ CODEC U#C IF 



00018300 
00018400 
Q Q0 18 5QQ 



I<3 THEN 1 ELSE 



end; 

IF NOT 

end; — 



00018600 

0));00018700 

OOOlBflOQ 



masktog then enteruserportion; 



EOF I 



ENDi 



00018900 
00019000 
0QQ1910Q 



00019200 
00019300 
00019400 



b6 

57l 



end; 

END, 
ENDlFMn. 



FNnyKfftEhuJBi, gck; 




00019500 
00019600 

ooumno 



I AST TAHn flM nCHDTNu T&PF 



00019710 
00019800 
99999000 
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7 
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LABEL 00OOO000OPRIMEK0C175100CC LX 03 JEC 1 /READ JFRE 50UHCEFILE»SYMBUU/UPUATE**0U00000 



OBJECT /READ 
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